
/*******************************************************************************
*** POPULISM AND FOREIGN POLICY PAPER
*** File Creation Date: April 12, 2024
*** Author: MM
*** Purpose: F-tests for regression models with and without intercation
********************************************************************************/

*** PROGRAM SETUP COMMANDS

set more off            // Disable partitioned output
set dp period			// Use comma instead of dot for decimals
clear all               // Start with a clean slate
set linesize 80         // Line size limit to make output more readable
macro drop _all         // clear all macros

************************************************************************************************************************************

*** Test all models with and without internations against each other

	capture use "Data_clean", clear

*** Militant internationalism
	quietly regress mi_index c.GoertzPopulism_0_1 ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 1
	estimates store m1a
	quietly regress mi_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 1
	estimates store m1b

	ftest m1a m1b

	quietly regress mi_index c.GoertzPopulism_0_1 ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 2
	estimates store m1a
	quietly regress mi_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 2
	estimates store m1b

	ftest m1a m1b

	quietly regress mi_index c.GoertzPopulism_0_1 ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 3
	estimates store m1a
	quietly regress mi_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 3
	estimates store m1b

	ftest m1a m1b

	quietly regress mi_index c.GoertzPopulism_0_1 ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 4
	estimates store m1a
	quietly regress mi_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 4
	estimates store m1b

	ftest m1a m1b


*** Cooperative internationalism
	quietly regress ci_index c.GoertzPopulism_0_1 ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 1
	estimates store m1a
	quietly regress ci_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 1
	estimates store m1b

	ftest m1a m1b

	quietly regress ci_index c.GoertzPopulism_0_1 ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 2
	estimates store m1a
	quietly regress ci_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 2
	estimates store m1b

	ftest m1a m1b

	quietly regress ci_index c.GoertzPopulism_0_1 ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 3
	estimates store m1a
	quietly regress ci_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 3
	estimates store m1b

	ftest m1a m1b

	quietly regress ci_index c.GoertzPopulism_0_1 ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 4
	estimates store m1a
	quietly regress ci_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 4
	estimates store m1b

	ftest m1a m1b



*** Isolationism
	quietly regress iso_index c.GoertzPopulism_0_1 ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 1
	estimates store m1a
	quietly regress iso_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 1
	estimates store m1b

	ftest m1a m1b

	quietly regress iso_index c.GoertzPopulism_0_1 ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 2
	estimates store m1a
	quietly regress iso_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 2
	estimates store m1b

	ftest m1a m1b

	quietly regress iso_index c.GoertzPopulism_0_1 ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 3
	estimates store m1a
	quietly regress iso_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 3
	estimates store m1b

	ftest m1a m1b

	quietly regress iso_index c.GoertzPopulism_0_1 ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 4
	estimates store m1a
	quietly regress iso_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 4
	estimates store m1b

	ftest m1a m1b



*** Global Justice
	quietly regress gj_index c.GoertzPopulism_0_1 ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 1
	estimates store m1a
	quietly regress gj_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 1
	estimates store m1b

	ftest m1a m1b

	quietly regress gj_index c.GoertzPopulism_0_1 ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 2
	estimates store m1a
	quietly regress gj_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 2
	estimates store m1b

	ftest m1a m1b

	quietly regress gj_index c.GoertzPopulism_0_1 ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 3
	estimates store m1a
	quietly regress gj_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 3
	estimates store m1b

	ftest m1a m1b

	quietly regress gj_index c.GoertzPopulism_0_1 ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 4
	estimates store m1a
	quietly regress gj_index c.GoertzPopulism_0_1##ib300.LeftRightAll_Rec age i.female i.educat2 if COUNTRY == 4
	estimates store m1b

	ftest m1a m1b
